﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class abonosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As AbonosBE
        Dim tmpAbonos As AbonosBE = New AbonosBE()
        Try
            With tmpAbonos
                .Almacen = convertDTFromDb.convertInt32(dr.Item("Almacen"))
                .AnioAprob = convertDTFromDb.convertInt32(dr.Item("AnioAprob"))
                .Banco = convertDTFromDb.convertInt32(dr.Item("Banco"))
                .Cadena = convertDTFromDb.ConvertString(dr.Item("Cadena"))
                .Concepto = convertDTFromDb.ConvertString(dr.Item("Concepto"))
                .CondicionesP = convertDTFromDb.convertInt32(dr.Item("CondicionesP"))
                .Descuentos = convertDTFromDb.convertInt32(dr.Item("Descuentos"))
                .DescuentosAdic = convertDTFromDb.convertInt32(dr.Item("DescuentosAdic"))
                .Enviada = convertDTFromDb.ConvertString(dr.Item("Enviada"))
                .FCancelFol = convertDTFromDb.ConvertString(dr.Item("FCancelFol"))
            End With
            Return tmpAbonos
        Catch ex As Exception
            Throw
        Finally
            tmpAbonos = Nothing
        End Try
    End Function
End Class

